home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / percdemo < prev   
Lisp/Scheme  |  1998-10-26  |  902b  |  29 lines
  1. ; tutorial example  -  percdemo 
  2.  
  3. (setq symbols '(a b c d e f g))
  4.  
  5. (def-rhythm
  6.   ;                 1               2   --> Bars
  7.   ;                 |---------------|
  8.   ;                 |---|---|---|---|    fill pattern
  9.   perc1 '1/16       "-- -- --- ---- -"    (q)
  10.   perc2 '1/16       " --  -- ---  ---"    (r)
  11.   perc3 '1/16       "-  --  --  --  -"    (z)
  12.   perc4 '1/16       "  -   -   -   - "    (p)
  13.   bass  '1/8        "-- --- -  -- ---"    symbols
  14. )
  15.  
  16. (setq tonals (activate-tonality (blues1 c 2) (chromatic c 3)))
  17.  
  18. (compile-song-p "ccl;output:" 1/4 "percdemo"
  19. ;                  |---|---|---|---|
  20. changes   tonals  "    .   .   .   "
  21. perc1   mt-32     "-   ----  ---- -"
  22. perc2   mt-32     " -  ----  ---- -"
  23. perc3   mt-32     "  -   ------ ---"
  24. perc4   mt-32     "   -    --------"
  25. bass    changes   "-------   ------"
  26. )
  27.  
  28. ; -- perc1-4 set to bongo h, bongo l, cabasa, cowbell on the Roland mt-32
  29.